100 POKE53280,0:POKE53281,0
140 POKE55,0:POKE56,64:CLR:A$=""
142 DV=PEEK(186):IFDV<8THENDV=8
143 DIMR$(30),AN$(16)
145 PRINT"[147]":POKE788,52:GOSUB60000
155 DEF FND(I)=20-(LEN(AN$(I))/2)
160 SYS57812"UNPACKER.89",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
197 SYS57812"WP.O $C000",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
198 SYS57812"INPANY/COPY",DV,0:POKE780,0:POKE781,60:POKE782,3:SYS65493
200 IP=828:UNPACK=51456:HGR=51459:CP=928
202 FORI=1TO29:READR$(I):NEXT
204 DATA"BETSY","HOPKINSON","FORT INDY","15","20","21","23","24","25","26","27"
206 DATA"28","29","30","31","32","33","34","35","36","37","38","43","44","45"
208 DATA"46","48","49","50"
210 BO=53280:BG=53281
212 TP$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
214 MD$="[221]                                   [221]"
216 BT$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
220 QY=12:GOSUB4000
230 PRINT"[129]"TAB(10)"[212][200][197] [207][204][196] [199][204][207][210][217] [211][212][207][210][217]"
232 PRINTTAB(4)"1.[159]  [211]EE THE SLIDESHOW
234 [153][163]4)"2.OPEN  STR$ESIGN 51 AND 52 STAR FLAGS
236 PRINTTAB(4)"3.[159]  [209]UIT TO [204][207][193][196][211][212][193][210]
238 [151]198,0
240 [161]A$:[139]A$[179]"1"[176]A$[177]"3"[167]240
250 [145][197](A$)[137]270,5000,40000
270 [129]X[178]1[164]29:J[178]0
272 [129]I[178]1[164]16:AN$(I)[178]"":[130]
273 [159]2,DV,2,"OG."[170]R$(X)[170]",P,R"
274 [129]I[178]0[164]1:[158]IP,2,40:I[178]ST
275 J[178]J[170]1:AN$(J)[178]A$:[139]J[177]15[167]I[178]1
276 [130]:[160]2
280 [141]1770
290 [158]57812R$(X)[170]".SHP",DV,0:[151]780,0:[151]781,0:[151]782,64:[158]65493
310 [141]1910:[139]A$[178]"Q"[176]A$[178]"(null)"[167]220
312 [141]2000
340 KK[178]0:[151]198,0
360 KK[178]KK[170]1:[161]A$
370 [139]A$[178]"Q"[176]A$[178]"(null)"[167][158]HG:[137]220
380 [139]A$[178]"S"[176]A$[178]"(null)"[167]470
385 [139]A$[178]"P"[176]A$[178]"(null)"[167][141]3000:[137]340
390 [139]A$[178]"B"[176]A$[178]"PEEK"[167][151]BO,([194](BO)[170]1)[175]15:[137]340
400 [139]A$[178]" "[167]420
419 [139]KK[179]600[167]360
420 [158]HGR:[153]"LOAD":[151]198,0:[130] X
430 [137]270
470 [158] HGR
560 [153]"LOADOPEN (null)HIS WILL SAVE "[199](34)R$(X)[199](34)"OPEN AS A"
562 [153]" STR$(null)(null)STR$(null)VAL! FILE."
564 [153]" (null)OURCE DRIVE IS"DV
566 [153]"OPEN STR$ESTINATION DRIVE # (CONT8OPEN - CONT12OPEN): ";:L9%[178]2:[141]50000:DE[178][197](Q9$)
568 [139]DE[179]8[176]DE[177]12[167]560
590 [153]"OPEN ASCILENAME: DD";:L9%[178]14:[141]50000:[139]Q9$[178]""[167]1110
620 NM$[178][200]("DD"[170]Q9$,14)
820 [159]15,DE,15,"R0:"[170]NM$[170]"="[170]NM$:[132]15,ER,ER$:[160]15
830 [139]ER[178]63[167][141]1170:[137]1110
950 [158]57812NM$,DE:[151]193,0:[151]194,92:[151]174,0:[151]175,128:[158]62954
980 [159]15,8,15:[132]15,ER,ER$,Y$,Z$:[160]15
990 [139]ER[167][141]1170:[137]490
1050 [153]" (null)UCCESSFUL SAVE!"
1060 [129]T[178]1[164]2000:[130]
1110 [158]HGR:[137]340
1170 [153]" STR$ISK ERROR!
1180 POKE214,10:PRINT
1190 A$="[152][197]RROR #"+STR$(ER)+"[152],"+ER$
1200 X%=22-LEN(A$)/2:PRINTTAB(X%);A$
1210 POKE214,21:PRINT
1220 PRINT"[159] [208]RESS [211][208][193][195][197][159] TO CONTINUE."
1230 GETA$:IFA$<>" "THEN1230
1240 RETURN
1250 O=PEEK(53270)AND16
1255 IFOTHENSYS51459
1260 POKEBO,0:POKEBG,0
1270 PRINT"[147]":POKE214,11:PRINT:PRINT"[154]  [209]UIT? (Y[154]/N[154])":POKE198,0
1280 GETA$:IFA$<>"Y"ANDA$<>"N"THEN1280
1290 IFA$="Y"THEN40000
1295 IFOTHENSYS51459
1770 QY=15:GOSUB4000
1870 POKE214,9-(J/2):PRINT:PRINT"[145][159]";
1880 FORI=1TOJ
1882 PRINTTAB(FND(I))AN$(I)
1886 NEXT
1900 RETURN
1910 KK=0
1915 POKE214,17:PRINT:PRINT"[153]     [215]HILE THE SLIDE IS SHOWING..."
1918 PRINT"       [208] [158]- TAKES YOU TO [208][210][201][206][212] ROUTINE"
1919 PRINT"       [211] [158]- TAKES YOU TO [211][193][214][197] ROUTINE"
1920 PRINT"       [209] [158]- QUITS TO THE [205]AIN [205]ENU
1930 [153]"PRINT  (null)RESS (null) TO QUIT - (null)(null)ATNLENVAL TO CONTINUE"
1940 KK[178]KK[170]1:[161]A$:[139]A$[179][177]""[176]KK[177]1000[167][142]
1950 [137]1940
2000 [153]"LOAD";:[139]FH[167][151]254,0:[158]BA:[137]2040
2020 [151]251,64:[151]252,96:[151]253,92
2030 [158]UN
2040 [151]252,96:[151]253,92:[158]HGR:[142]
2050 [142]
3000 [158]HGR
3020 [151]49158,0:[151]49159,0:[151]49160,39:[151]49161,24:[151]49162,96
3040 [153]"LOADOPEN  (null)URN YOUR PRINTER ON AND PRESS (null)(null)ATNLENVALOPEN."
3050 [161]A$:[139]A$[179][177]" "[167]3050
3070 [153]"OPEN (null)RESS (null)VAL(null)(null)(null)(null)OPEN TO PRINT THE GRAPHIC, OR
3080 PRINT" PRESS [211][208][193][195][197][159] TO GO BACK TO THE GRAPHIC.
3090 [161]A$:[139]A$[179][177]" "[175]A$[179][177][199](13)[167]3090
3100 [139]A$[178][199](13)[167][158]HGR:[158]49152:[142]
3110 [158]HGR:[142]
4000 [153]"";
4010 [151]BG,0:[151]BO,0
4020 [153]"LOADLISTORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
4030 [129]QX[178]1[164]QY
4040 [153]"(null)"[163]38)"(null)":[130]
4050 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
4060 [129]LX[178]217[164]242:[151]LX,([194](LX)[176]128):[130]
4070 [142]
5000 [151]BG,1:[151]BO,1:[153]"LOAD"
5002 [153]"  "TP$:[129]I[178]1[164]18:[153]"  "MD$:[130]:[153]"  "BT$
5005 S[178]0
5010 [151]214,21:[153]:[153][163]13)"STOP(null)TAR COUNT:"
5015 [153]"PRINT#  (null)SE LEN(null)(null)(null) KEYS/(null)VAL(null)(null)(null)(null) TO TOGGLE STARS
5020 PRINT"  [208] - [208]RINT    [195][204][210] - [195]LEAR    [209] - [209]UIT
5025 [151]198,0:Y[178]2:X[178]3:SC[178]1024:C[178]54272:[151]650,128
5030 L[178]SC[170]Y[172]40[170]X:[151]L[170]C,3:[151]214,21:[153]:[153][163]24)"     CMDCMDCMDCMDCMDSTOP"S
5040 [161]A$:[139]A$[178]""[167]5040
5041 [151]L[170]C,6
5042 [139]A$[179][177][199](13)[167]5050
5044 [139][194](L)[178]170[167][151]L,160:S[178]S[171]1:[137]5072
5046 [151]L,170:S[178]S[170]1:[137]5072
5050 [139]A$[179][177]"ON"[167]5060
5052 Y[178]Y[171]1:[139]Y[179]2[167]Y[178]19
5054 [137]5030
5060 [139]A$[179][177]""[167]5070
5062 Y[178]Y[170]1:[139]Y[177]19[167]Y[178]2
5064 [137]5030
5070 [139]A$[179][177]""[167]5080
5072 X[178]X[170]1:[139]X[177]37[167]X[178]3
5074 [137]5030
5080 [139]A$[179][177]"CMD"[167]5086
5082 X[178]X[171]1:[139]X[179]3[167]X[178]37
5084 [137]5030
5086 [139]A$[178]"Q"[167][151]650,0:[137]220
5088 [139]A$[178]"LOAD"[167]5002
5090 [139]A$[179][177]"P"[167]5030
5092 [151]781,23:[158]59903:[151]781,24:[158]59903
5094 [151]214,23:[153]:[153]"PRINT#   CHR$ET YOUR PRINTER READY/PRESS (null)(null)ATNLENVAL":[151]198,0
5096 [161]A$:[139]A$[178]""[167]5096
5097 [139]A$[179][177]" "[167]5010
5098 [159]4,4,7
5100 [159]2,3,2:[129]I[178]0[164]19:[151]214,I:[153]
5110 [132]2,B$:[152]4,"    ";B$
5120 [130]:[160]2:[160]4
5130 [153]:[137]5010
5999 [137]5999
10000 [159]15,8,15,"S0:OLD GLORY":[160]15:[148]"OLD GLORY",8:[128]
40000 [151]788,49
40005 A$[178]"HELLO CONNECT":[129]I[178]8[164]9:[160]2:[159]2,I,2:[160]2:[139]ST[167]40030
40010 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40030
40020 [130]:[153]"LOAD":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128]
40030 [151]646,[194](53281):[153]"LOADLOAD"[199](34)A$[199](34)","I
40040 [153]"RUN":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]
50000 Q9$[178]"":U9[178]53280:[151]198,0
50010 [161]A$
50020 [151]646,[187](1)[172]15[170]1:[153]"TOCMD";:[139]A$[178]""[167]50010
50030 [139]A$[178][199](13)[167][153]" ":[142]
50040 [139](A$[178][199](20)[175][195](Q9$))[167]Q9$[178][200](Q9$,[195](Q9$)[171]1):[137]50080
50050 [139][195](Q9$)[177][178]L9%[167]T9%[178][194](U9):[151]U9,1:[151]U9,T9%:[137]50010
50060 [139]A$[179]" "[176](A$[177][199](127)[175]A$[179][199](160))[176]A$[178][199](34)[167]50010
50070 Q9$[178]Q9$[170]A$
50080 [153]""A$;:[137]50010
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"(null)HE (null)(null)STR$ CHR$(null)(null)(null)(null) (null)(null)(null)(null)(null)":Z$(1)[178]"BY CHR$EORGE LENIPOLLETTI & ASCENDER (null)UCKER
60040 Z$(2)="[214]1.0 ([195]) 1993 BY [211]OFTDISK, [201]NC."+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"(null)EPORT ILLEGAL DISTRIBUTION OF":Z$(7)[178]"THIS PROGRAM BY CALLING"
60090 Z$(8)[178]"1-800-831-2694 OR 1-318-221-8718.":[151]214,12:[153]
60100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]